home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 19 / 019.d81 / pixel page (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.6 KB  |  64 lines
  1. 2 ifa=2then63000
  2. 3 ifa>.then160
  3. 4 print""
  4. 7 goto100
  5. 8 :
  6. 10 sys 49154:poke53280,0
  7. 20 poke198,0:wait198,1
  8. 30 poke53265,peek(53265)and223
  9. 40 poke53270,peek(53270)and239
  10. 50 poke53272,21
  11. 55 print""
  12. 60 goto63000
  13. 70 :
  14. 80 :
  15. 90 :
  16. 100 v=53248:s=54272
  17. 110 pokev+32,.:pokev+33,.:print"          LOADSTAR Number 19"
  18. 120 print""
  19. 130 print"       Here's looking at you..."
  20. 140 print""
  21. 150 f$="eyepic"
  22. 157 print"    Cover designed by Patrick Dugan"
  23. 158 print"          using the KOALA pad."
  24. 160 ifa=.thenprint"Loading Picture":a=1:loadf$,8,1
  25. 166 forq=49154to49317:reada:pokeq,a:next
  26. 170 s=54272:fori=.to23:pokes+i,0:next:pokes+24,15:pokes+5,255:pokes+6,255
  27. 175 pokes+12,255:pokes+13,255:pokes+19,255:pokes+20,255:pokes+1,3:pokes+8,3
  28. 177 pokes+15,3:pokes+7,7:pokes+14,18
  29. 180 print"Press space bar to view cover."
  30. 182 print"Press it again to return to menu."
  31. 185 poke198,0:wait198,1
  32. 190 pokes+4,17:pokes+11,17:pokes+18,17:goto10
  33. 200 :
  34. 300 :
  35. 63000 rem   return back to menu
  36. 63010 pokes+4,16:pokes+11,16:pokes+18,16:poke56,160:clr:poke53281,0
  37. 63020 poke53280,0
  38. 63025 printchr$(14)
  39. 63030 print"Launching Table of Contents";
  40. 63035 load"hello connect",8
  41. 60050 data173,17,208,41,239,141,17,208
  42. 60060 data162,127,160,64,32,156,192,162
  43. 60070 data4,160,0,32,161,192,162,131
  44. 60080 data160,39,32,114,192,162,131,160
  45. 60090 data40,32,156,192,162,216,160,0
  46. 60100 data32,161,192,162,135,160,15,32
  47. 60110 data114,192,173,16,135,141,33,208
  48. 60120 data173,17,208,9,34,141,17,208
  49. 60130 data173,22,208,41,223,9,16,141
  50. 60140 data22,208,173,24,208,9,8,141
  51. 60150 data24,208,162,96,160,0,32,156
  52. 60160 data192,162,32,160,0,32,161,192
  53. 60170 data162,127,160,63,32,114,192,173
  54. 60180 data17,208,9,16,141,17,208,96
  55. 60190 data142,1,192,140,0,192,160,0
  56. 60200 data177,251,145,253,165,252,205,1
  57. 60210 data192,208,8,165,251,205,0,192
  58. 60220 data208,1,96,230,251,208,2,230
  59. 60230 data252,230,253,208,227,230,254,76
  60. 60240 data122,192,134,252,132,251,96,134
  61. 60250 data254,132,253,96
  62. 63045 :
  63. 63047 :
  64.